home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
util
/
text
/
edt10.lha
/
S
/
Edt
/
LayoutWindows.edt
< prev
next >
Wrap
Text File
|
1995-02-28
|
572b
|
29 lines
/* layout windows */
OPTIONS RESULTS
'Get' SCREENHEIGHT
screenHeight=RESULT-14
'Get' SCREENWIDTH
screenWidth=RESULT
'Get' WINDOWS
numWindows=RESULT
vw=numWindows
IF numWindows > 4 THEN
vw=2
IF numWindows > 9 THEN
vw=3
IF numWindows > 16 THEN
vw=4
IF numWindows > 25 THEN
vw=5
windowHeight=screenHeight%vw
windowWidth=screenWidth%((numWindows+vw-1)%vw)
'Get' WINDOWID
thisWindow=RESULT
'FirstWindow'
DO i=0 TO numWindows-1
'SetWindowBox' i%vw*windowWidth i//vw*windowHeight+14 windowWidth windowHeight
'NextWindow'
END
'SelectWindow' thisWindow
'WindowToFront'